#ifndef __PRIMITIVES_H
#define __PRIMITIVES_H

#define SOB_VECTOR_VALUE(x)			SOB_DATA((x))->svd.value
#define SOB_VECTOR_LENGTH(x, n)		SOB_VECTOR_VALUE((x))[i]
#define SOB_VECTOR_REF(x, i)		SOB_VECTOR_VALUE((x))[i]
#define SOB_VECTOR_SET(x, i, sob)	SOB_VECTOR_VALUE((x))[i] = sob


/*
SOB_VECTOR_SET(x, i, c)
SOB_VECTOR_VALUE((x))[i] = c
(SOB_DATA((x))->svd.value)[i] = c
((SOB((x))->schemeObjectData)->svd.value)[i] = c
(((((SchemeObject *) (x)))->schemeObjectData)->svd.value)[i] = c
*/
#endif
